*> 100 Cool Things - http://cobolrocks.codeplex.com/
*> Copyright (c) 2009
*> by Emerson Lopes (emersonlopes@gmail.com)
*>
*> Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated 
*> documentation files (the "Software"), to deal in the Software without restriction, including without limitation 
*> the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and 
*> to permit persons to whom the Software is furnished to do so, subject to the following conditions:
*>
*> The above copyright notice and this permission notice shall be included in all copies or substantial portions 
*> of the Software.
*>
*> THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED 
*> TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL 
*> THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF 
*> CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER 
*> DEALINGS IN THE SOFTWARE.

INTERFACE-ID. ICreditCardAdapter as "AdapterPattern.ICreditCardAdapter". 

    environment division.
        configuration section.
            repository.
                class SystemString as "System.String".
                
    procedure division.
        method-id. ProcessPaymentAdapter as "ProcessPaymentAdapter".   
            data division.
			    linkage section.
				    01 CardNumber         usage object reference SystemString.
				    01 securityCode       usage object reference SystemString.
				    01 amount             usage comp-2.
			 
			 procedure division using securityCode, CardNumber, amount.
			 *> Interfaces do not contain any logic, just the desired interface
			 
	    end method ProcessPaymentAdapter.
	    
END INTERFACE ICreditCardAdapter.
